home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BCI NET
/
BCI NET Dec 94.iso
/
archives
/
programming
/
e
/
amigae30a.lha
/
Amiga_E_v3.0a
/
Src
/
Lang
/
Yax
/
fac.yax
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-09-02
|
103 b
|
3 lines
(defun fac (n) (if (eq n 1) 1 (* (fac (sub n 1)) n)))
(write 'compute factorial of: ' (fac (readint)))